--[[
    编码: WMS-15-03
    名称: 收货单-检入前
    作者：HAN  
    日期：2025-1-29

    级别：固定 (说明本段代码在项目中不太会变化)
    
    函数： BeforeDataObjCheckIn

    功能:
        1）如果有ASN需要判断一下 收货单的数量是否超过 预收货单 中的数量

    更改记录:
     
--]]

json  = require ("json")
mobox = require ("OILua_JavelinExt")
wms = require("OILua_WMS")

m3 = require("oi_base_mobox")

function BeforeDataObjCheckIn ( strLuaDEID )
    local   nRet, strRetInfo

    -- 获取 S_NO
    nRet, strRetInfo = mobox.getCurEditDataObjAttr( strLuaDEID, "S_NO" ) 
    if ( nRet ~= 0 )  then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..strRetInfo ) end 

    local obj_attrs = json.decode( strRetInfo ) 
    local receipt_no = obj_attrs[1].value                -- 收货单编号

    if ( receipt_no ~= "" ) then
        nRet,strRetInfo = wms.wms_CheckAccumQty( strLuaDEID, "Receipt_Order", receipt_no ) 
        -- 返回 { "result": true/false, "cause": [ "[xxxx]的可收货数量是58, 不能收货 100", ... ] }
        if ( nRet ~= 0 ) then lua.Error( strLuaDEID, debug.getinfo(1), strRetInfo ) end 
        -- 根据返回值判断是否检测通过, 如果 strRetInfo == '' 说明没预收货单
        if ( strRetInfo ~= '') then
            local check_result = json.decode( strRetInfo )
            if ( check_result.result == false ) then
                -- 告知前端有错误，程序执行终止
                mobox.stopProgram( strLuaDEID, lua.table2str(check_result.cause))
                return
            end
        end
    end
end